home *** CD-ROM | disk | FTP | other *** search
- (* Copyright (c) xTech 1992,95. All Rights Reserved *)
- <*+ CSTDLIB *>
- <*+ NOHEADER *>
- <*+ M2EXTENSIONS *>
- DEFINITION MODULE [2] string;
-
- FROM SYSTEM IMPORT ADDRESS, int, size_t;
-
- PROCEDURE memchr(s: ADDRESS; c: int; n: size_t): ADDRESS;
- PROCEDURE memcmp(s1,s2: ADDRESS; n: size_t): int;
- PROCEDURE memcpy(dest,src: ADDRESS; n: size_t): ADDRESS;
- PROCEDURE memmove(dest,src: ADDRESS; n: size_t): ADDRESS;
- PROCEDURE memset(s: ADDRESS; c: int; n: size_t): ADDRESS;
-
- PROCEDURE strcat(VAR s1: ARRAY OF CHAR; s2: ARRAY OF CHAR): ADDRESS;
- PROCEDURE strchr(s: ARRAY OF CHAR; c: int): ADDRESS;
- PROCEDURE strcmp(s1,s2: ARRAY OF CHAR): int;
- PROCEDURE strcpy(VAR s1: ARRAY OF CHAR; s2: ARRAY OF CHAR): ADDRESS;
- PROCEDURE strcspn(s1,s2: ARRAY OF CHAR): size_t;
- PROCEDURE strerror(errnum: int): ADDRESS;
-
- PROCEDURE strlen(s: ARRAY OF CHAR): size_t;
- PROCEDURE strncat(VAR s1: ARRAY OF CHAR; s2: ARRAY OF CHAR; n: size_t): ADDRESS;
- PROCEDURE strncmp(s1,s2: ARRAY OF CHAR; n: CARDINAL): int;
- PROCEDURE strncpy(VAR s1: ARRAY OF CHAR; s2: ARRAY OF CHAR; n: size_t): ADDRESS;
- PROCEDURE strpbrk(s1,s2: ARRAY OF CHAR): ADDRESS;
- PROCEDURE strrchr(s: ARRAY OF CHAR; c: int): ADDRESS;
- PROCEDURE strspn(s1,s2: ARRAY OF CHAR): size_t;
- PROCEDURE strstr(s1,s2: ARRAY OF CHAR): ADDRESS;
- PROCEDURE strtok(VAR s1: ARRAY OF CHAR; s2: ARRAY OF CHAR): ADDRESS;
- PROCEDURE strxfrm(VAR s1: ARRAY OF CHAR; s2: ARRAY OF CHAR; size: size_t): size_t;
- PROCEDURE strcoll(s1,s2: ARRAY OF CHAR): int;
-
- END string.
-